home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2002-11_2002_CSW_Side_B.d64 / calculate divtab (.txt) next >
Commodore BASIC  |  2023-02-26  |  299b  |  17 lines

  1. 10 t0=21632
  2. 20 t1=21760
  3. 30 t2=21888
  4. 40 t3=20736:t4=t3/256
  5. 50 :
  6. 100 forx=1to127
  7. 200 y=128*log(x)/log(2)+.5
  8. 300 poket0+x,yand255
  9. 400 y=y/256:poket1+x,y+t4:poket2+x,y
  10. 500 next
  11. 599 :
  12. 600 forx=$01to$037f
  13. 700 y=2^(8-x/128):poket3+x,y
  14. 800 next
  15. 899 :
  16. 900 poket0,.:poket1,t4:poket2,.:poket3,255
  17.